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CONTROL DATA CYBER 70, 6000 SERIES, 

7600 COBOL 

The COBOL language is designed to simplify the programming of busi- 
ness data processing operations; it produces easily modifiable source 
programs that result in shorter program development time and low 
program conversion costs. COBOL source and object programs run un- 
der the control of the SCOPE operating system. 

This version of COBOL is designed for the CONTROL DATA® CYBER 70, 
6000 Series and 7600 computers. It is upwards compatible with the 
COBOL developed by the American National Standards Institute (ANSI). 
This version provides many features in addition to all ANSI features. 

ANSI formats are printed in black. 

Extensions to ANSI are printed in color: 

blue All CDC extensions 

green CDC 6000 Series and CDC CYBER 70/Models 72, 73, 74 
red CDC 7600 and^CDC CYBER 70/Model 76 

Special Features: 

Mass storage input and output including indexed sequential and direct 
access file processing. 

SORT verb sorts files within COBOL program 

Automatic table search using index names and the SEARCH and SET 
statements 

Report Writer produces printed reports automatically, or user may pro- 
duce report page with LINAGE clause and WRITE statement 

Full arithmetic facility including: 
18-digit operands 
DIVIDE with REMAINDER 
COMPUTE with exponentiation 
CORRESPONDING option with ADD and SUBTRACT 

Segmentation and overlay of object program 

Inter-program communication with separately compiled COBOL pro- 
grams as well as with FORTRAN or COMPASS programs 

Access to COBOL source library 

Memory dumps with restart at specified checkpoints 

Remote interactive capability for remote terminal input/output 



PROGRAM EFFICIENCY HINTS 

To reduce keypunching: 

Use abbreviations where permitted. 

Use PIC clause rather than SIZE, CLASS, USAGE clauses. 

To increase compilation efficiency: 

Restrict data and paragraph names to 9 characters or less. 
Eliminate unnecessary paragraph names. 
Reduce forward references. 

To increase execution efficiency: 

Use same size sending and receiving fields. 

Make table and item sizes a multiple of 10 characters. 

Reduce subscripting. 

Subscript with literals instead of variables. 

Use COMPUTATIONAL-1 items or index-names as subscripts. 

Use COMPUTATIONAL-1 items as arithmetic variables. 

Restrict arithmetic items to 9 digits or less. 

Use SYNCHRONIZED RIGHT clause for data frequently refer- 
enced. 

Use SAME RECORD AREA to save moves; SAME AREA to save 
space. 
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COBOL NOTATION 

[ ] Enclosed elements are optional. 

< > Only one element must be selected. 

. . . Repeat preceding bracketed material as needed. 

{ } . . . Entire phrase may be repeated. 

COBOL words have preassi.gned meanings and appear in capitals. 

COBOL words not underlined may be omitted. 

Terms in small letters are words supplied by the programmer. 

Punctuation and special characters are required where shown. 



COBOL LANGUAGE ELEMENTS 

Word Sequence of up to 30 alphanumeric characters including 

embedded hyphens 

Identifier Word that may be qualified or subscripted 

Literal String of characters whose value is exactly represented 

by the characters; numeric literal may be 0-9, +, -, and 
decimal point; non-numeric literal must be enclosed in 
quotes, may be any alphanumeric character except quotes 

Statement Procedure Division verb with associated options 

Sentence One or more statements terminated by period 

Paragraph Procedure Division sentences, Identification and Environ- 

ment Division entries introduced by paragraph name, 
terminated by period. 

Paragraph Word terminated by period used to introduce paragraph; 

Name user defined in Procedure Division, pre-defined in Identi- 

fication and Environment Divisions 



Section 



Paragraphs may be included in sections introduced by 
section name 



Section 
Name 



Entry 



Word followed by SECTION and terminated by period; 
user defined in Procedure Division, pre-defined in Identi- 
fication, Environment, and Data Divisions 

Unit of description in Data Division, must be terminated 
by period 



IDENTIFICATION DIVISION 



(ID | 

< > DIVISION 

I IDENTIFICATION J 

PROGRAM-ID. program-name. 

[ AUTHOR, [comment-entry.] ] 

[ INSTALLATION, [comment-entry.]] 

[ DATE-WRITTEN, [comment-entry.]] 

[ DATE-COMPILED, [current-date supplied by compiler.] 

[ SECURITY, [comment-entry.] ] 

[ REMARKS, [comment-entry.] ] 

ENVIRONMENT DIVISION 

ENVIRONMENT DIVISION. 



e 



CONFIGURATION SECTION. 








format 1 : 








SOURCE-COMPUTER. COPY library- 


name 








( literal-1 j 
REPLACING < word-1 

I identifier-1 ) 


( 


literal-2 ~) 






BY I 


word -2 > 








v identifier-2 ) 






" j literal-3 j 


I 


literal-4 n 


- 




\ word -3 / 
_ v identifier-3 ) 


BY < 


word -4 \ 










identifier-4 )_ 


_ 



format 2: 

SOURCE-COMPUTER, computer-name. 



format 1 : 

OBJECT-COMPUTER. COPY library-name 

REPLACING 



literal-1 


) 




( 


literal-2 




word-1 




BY 




word-2 




identifier-1 


* 




I 


identifier 


-2 


literal-3 


) 




! 


literal-4 




word-3 


) 


BY 


word-4 




identifier-3 




identifier 


-4 



format 2: 

OBJECT-COMPUTER, computer-name 

r SEGMENT-LlMIT IS priority-number] 



( WORDS 
MEMORY SIZE integer ) CHARACTERS 
( MODULES 



format 1 : 

SPECIAL-NAMES. COPY library-name 

REPLACING 



literal-1 ] 
word-1 r 
identifier-1 ) 


BY < 


' literal-2 
word-2 
, identifier-2 


literal-3 | 
word -3 ? 
identifier-3 ' 


BY < 


' literal-4 
word -4 
, identifier-4 



format 2: 

SPECIAL-NAMES 

SWITCH integer-1 

IS mnemonic-name-1 

[ ON STATUS jS condition-name- 1 
[OFF STATUS IS condition-name-2] ] 

IS mnemonic-name-2 

[ OFF STATUS \S condition-name-3 
[ ON STATUS iS condition-name-4] ] 

ON STATUS }S condition-name-5 
[ OFF STATUS JS condition-name-6] 

OFF STATUS [S condition-name-7 
[ON STATUS [S condition-name-8] 

[non-numeric-literal IS mnemonic-name-1] ... 

[implementor-name IS mnemonic-name-1 ] ... 

[CJJRJRENCY SIGN IS literal] 

[ DECIMAL-POINT IS COMMA] 

[ CONSOLE IS mnemonic-name] 

[ TERMINAL IS mnemonic-name] . 



INPUT-OUTPUT SECTION. 
format 1 : 

FILE-CONTROL. COPY library-name 

REPLACING 



literal-1 ) 
word-1 > 
identifier-1 ) 


BY 


(■ literal-2 
word-2 
I identifier-2 


literal-3 ] 
word-3 > 
identifier-3 ) 


BY 


( literal-4 
< word -4 
{ identifier-4 



LI 

format 2: 

FILE-CONTROL. 

{ SELECT [ OPTIONAL ! file-name-1 [RENAMING file-name-2] 
ASSIGN TO [integer] implementor-name-1 [implementor-name- 
... [OR implementor-name-3 [implementor-name-4] ...] 
/ REE 



FOR MULTIPLE 



s>] 



( UN 
[ ERROR FILE IS file-name 



*™{^U} ALTERNATE [(^} 

i FILE-LIMIT IS ) ( data-name-1 \ 
I FILE-LIMITSARE f (. literal-1 / 



]] 



/ THRU \ ( data-name-2 ^ 

t THROUGH ) \ literal-2 j 



f" ( data-name-3 \ / THRU 
L ( literal-3 



I / data-name-4 \_ 1 

t THROUGH ] \ literal-4 j J 



SEQUENTIAL 
) STANDARD 
ORGANIZATION IS - DIRECT 

j INDEXED SEQUENTIAL 



RELATIVE 



i SEQUENTIAL )] 
[ PROCESSING MODE IS SEQUENTIAL ! 



[access mode js } RANDQM j 



'( ACTUAL ) 
X SYMBOLIC / 



KEY IS data-name 



[number 



OF BLOCKS IS 



( data-name I, 



[i INDEX-LEVEL IS . I ] 

h INDEX-LEVELS ARE t mte 9 er J 

[ INDEX-BLOCK CONTAINS integer RECORDS] 



RECORD-BLOCK CONTAINS integer 



I RECORDS 



I CHARACTERS J j 
f lNDEX-PADDlNG IS integer PERCENT] 
f DATA-PADDING IS integer PERCENT] . } ... 

format 1 : 

l-O-CONTROL. COPY library-name 





REPLACING 


( literal-1 ] 
I word-1 > 

{ identifier-1 ) 


BY 


' literal-2 ^ 

word-2 > 

I identifier-2 ) 




" ( literal-3 ] 
s word-3 ? 
1 identifier-3 ) 


BY 


f literal-4 \~ 

word-4 > 

{ identifier-4 )_ 


forn 

l-O 


TdT. £.: 

CONTROL. 









RERUN ON 



file-name-1 
. implementor-name 



}] 



EVERY 



^™ {Hi} 

integer- 1 RECORDS 
integer-2 CLOCK-UNITS 
condition-name 



OF file-name-2 i 



SAME R|^S; Dr ll AREA FOR file-name-1 {file-name-2} 
I ( RECORD ) I 



[MULTIPLE FILE TAPE CONTAINS file-name-1 
[ POSITION integer-1 ] [ file-name-2 
[ POSITION integer-2] ] ... 1 . 



PICTURE DESCRIPTION CODES 

Data Characters 

A Alphabetic character 
X Alphanumeric character 
9 Numeric character 

Operation Symbols 
S Signed 

V Assumed decimal point location 
P Assumed decimal point scaling position 

Replacement Characters 

Z Leading zeros replaced by blanks 

* Leading zeros replaced by * (check protection symbol) 

Insertion Characters 

$ Dollar sign; floating when more than one (dollar sign may be 
replaced by currency sign defined in SPECIAL-NAMES) 

Comma 
/ Slash (instead of comma) 

Actual decimal point 

B Blank 

Zero 

Minus sign when item is negative, blank when positive; floating 
when more than one 

+ Plus sign when item is positive, minus when negative; floating 
when more than one 

CR Credit symbol when item is negative, blank when positive 

DB Debit symbol when item is negative, blank when positive 



DATA SPECIFICATIONS 





File 
Section 


Common and 

Working 

Storage Sections 


Constant 
Section 


01 


g 

r 
o 
u 
P 


e 

I 

e 
m 


77 


01 


g 

r 
o 
u 
P 


e 

I 

e 
m 


77 


01 


g 

r 
o 
u 
P 


e 

I 

e 
m 


REDEFINES 


I 






















SIZE 






R 


R 






R 


R 






R 


USAGE 
























CLASS 








R 








R 








OCCURS 


I 






I 


I 






I 


I 






POINT LOCATION 


J 








J 








J 






SIGNED 


J 








J 








J 






JUSTIFIED 


J 








J 








J 






SYNCHRONIZED 


J 








J 








J 






PICTURE 


J 








J 








J 






Editing Clauses 


J 








J 






I 


J 




I 


COPY 
























VALUE 


K 


K 


C 










V 






V 


FILLER 


I 






I 


I 






I 


I 







C Legal only in defining values for condition names 

I Illegal 

R Required if PICTURE is not used 

blank Optional 

V Required 

J Legal only on elementary 01 items 

K Documentary only 



DATA DIVISION 

DATA DIVISION. 
[FILE SECTION..] 

[ COMMON-STORAGE SECTION. ! 
[ WORKING-STORAGE SECTION. 1 
[ SECONDARY-STORAGE SECTION. ! 
[ CONSTANT SECTION. l 
[ LINKAGE SECTION. ! 
[ REPORTSECTION. 1 



File Description Entry (File Section Only) 

A Sort File Description (SD) entry may contain only DATA RECORD, 
RECORD CONTAINS, and FILE CONTAINS clauses; any or all may be 
omitted from an SD entry. 



format 1 : 



/ SD 
\ £D 



> file-name COPY library-name 

( literal-1 ) ( literal-2 

REPLACING < word-1 > BY <^ word-2 

I identifier- 1 ) ( identifier-2 



( literal-3 ) ( literal-4 

< word-3 > BY < word-4 

( identif ier-3 ) ( identifier-4 



format 2: 



/ SD 
I ED 



[ BLOCKCONTA.NS[inte g er-1JO] integer-2 {[™§f ERS }] f 

( [ ^ Ss AReI^-^- 1 [data-name-2] ...] ) 

) f REPORT IS ) 1 r * oi ( 

' { fHpORTSARE } rep0rt - name - 1 [ re P° rt - na ™-2] - ) ^ 



[ FILE CONTAINS ABOUT integer RECORDS ] 



o »„,- ^ C STANDARD ) 

LABEL I MCORDS ARE |! ^J^- 

1 RECORD IS J ( d ata-name-1 [data-name-2] ... ) 

If label records are STANDARD: 

VALUE OF [ ( — 1|S / literal " 1 11 

VALUb yj: L 1 IDENTIFICATION J lb \ data-name-1 J J 

f ( in 

DATE 



WRITTEN IS | literal-2 \1 

{ data-name-2 j J 

( literal-3 ) 

1 data-name-3 / _ 



EDITION-NUMBER IS { , , lteral 3 11 



REEL-NUMBER IS ( ', lteral 4 11 



( data-name-4 j _ 



RETENTION-CYCLE IS / llteral 5 [ 

{ data-name-5 j _ 



If label records are a data-name: 

literal-1 



[ 



VALUE OF data-name-3 IS , , 

( data-name-4 j 

r a * K ,cl literal-2 ) "I 1 

data-name-5 IS < , „ > ... 

L I data-name-6 j J J 

VALUE OF ENDSNG-TAPE-LABEL-lDENTlFiER 

|S ( literal-3 \ 1 

{ data-name-7 / J 

[ LINAGE IS \ !] tege x r |> LINES 1 
L I identifier j J 

RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 

r DEPENDING ON { RECORD-MARK \1 1 
L I data-name-1 j j J 

RECORDING MODE IS [{ B"^ }] 

[ SEQUENCED ON data-name-1 [data-name-2] ... ] . 



7 HIGH ] 

< ? LOW > DENSITY 

.( HYPER ) 



Record Description Entry (File, Common-Storage, Working-Storage, 
Secondary-Storage, Constant and Linkage Sections) 



(01 ) 

1 02-49) data_name COPY library-name [FROM UBRARY] 



0* 





( word-1 


\ ( word- 


2 } 


REPLACING <j identifier- 


1> BY< identifier-2 \ 
) I literal-2 j 


( literal— 1 




" f word-3 \ 
I identifier-3 [ BY 
. I literal-3 j 


r word-4 \ 1 


-i 




c identifier-4 > 






(literal-4 )_ 


J 


format 2 


?. 







level-number data-name- 1 [ REDEFINES identifier! 
COPY data-name-2 FROM SOURCE. 

format 3: 



level-number / data ~ name [ REDEFINES identifier] ; 
I FILLER 



f BWZ 

1 BLANK WHEN 



i 1 
ZERO / J 



CHECK PROTECT 
FLOAT DOLLAR SIGN 
FLOAT CURRENCY SIGN 
ZERO SUPPRESS 



[ LEAVING integer PLACES] 



[ CLASS IS] 



ALPHABETIC 
NUMERIC 
ALPHANUMERIC 
AN 



JUST 
JUSTIFIED 



RIGHT 



12 



OCCURS integer-1 [TO integer-2] TIMES 
[ DEPENDING ON data-name-1] 
' ASCENDING 



[{; 



KEY IS data-name-2 [data-name-3] 



DESCENDING 
[ INDEXED BY index-name-1 [index-name-2] ...] 

( ^Ttiirp } IS character-string | 



POINT LOCATION IS -j j^J T } integer PLACES 



RANGE IS HteraM { ™ UGH }■ literal-2 



( SIGNED 1 1 

\ SIGN IS data-name f J 

^i~[{^T R S ACTERS }] 
}] 



-] 



SYNC 
SYNCHRONIZED 



LEFT 
RIGHT 



[ USAGE IS] 



[ VALUE IS literal]. 
format 4: 



COMP 

COMPUTATIONAL 

COMP-1 

COMPUTATIONAL-1 

COMP-2 

COMPUTATIONAL-2 

DISPLAY 

INDEX 



66 data-name RENAMES identifier- 1 I j THRO UGH ' 



identifier-2 



format 5: 

88 condition-name { ^jjff s '^ RE } literal-! 



Report Description Entry (Report Section Only) 



format 1 : 

RD report-name [WITH CODE mnemonic-name' 
• literal-1 



COPY library-name 



literal-2 ) 
word-2 
identifier-2 / 



( literal- 1 \ 
REPLACING I word-1 > BY 



literal-3 ~\ f literal-4 

word-3 > BY < word-4 
identifier-3 / v identifier-4 



format 2: 

RD report-name [WITH CODE mnemonic-name] 



/ CONTROL IS ) 
\ CONTROLS ARE J 



identifier-1 [identifier-2] ... 

FINAL 

FINAL identifier-1 [identifier-2] 



„ A ^r- ( LIMIT IS ) . „ ( LINE 

rPAGE {lI^Ttsare/ 1 ^^- 1 iU^is 



r HEADING integer-2] [FIRST DETAIL integer-3] 
_ [LAST DETAIL integer-4 [ FOOTING integer-5] 



Report Group Description Entry (Report Section Only) 



format 1 : 

01 [data-name] COPY library-name [FROM LIBRARY ] 



' literal-1 
REPLACING ^ word-1 

-. identifier-1 



literal-2 
BY { word-2 

identifier-2 



literal-3 '\ ( literal-4 

word-3 > BY < word-4 
identifier-3 ) \ identifier-4 



format 2: 



01 data-name-1 [ REDEFINES identifier] 
COPY data-name-2 FROM SOURCE. 



format 3: 

01 [data-name] 

[ CLASS IS] 



I A 



ALPHABETIC 
NUMFRIC 

LPHANUMERIC 
AN 



integer-1 
LINE NUMBER IS { PLUS inteqer-2 
. NEXT PAGE 

' integer-1 
NEXT GROUP IS <J PLUS inteqer-2 
' NEXT PAGE 



f _._._ IC . ( CHARACTERS! 1 

L ^^ ISmteger \ DIGITS j J 



REPORT HEADING 

RJH 

PAGE HEADING 

P±L 

OVERFLOW HEADING 

OJH 

( CONTROL HEADING 

I CH 
DETAIL 
DE 

( CONTROL FOOTING 

I CF 
OVERFLOW FOOTING 
QV 

PAGE FOOTING 
PF_ 

REPORT FOOTING 
R£ 



TYPE IS 



identifier-1 
FINAL 



identifier-2 ] 
FINAL I 



[ USAGE IS] DISPLAY 



Report Element Description (Report Section Only) 

level-number [data-name] 

r ( BLANK WHEN ZERO \ 1 

L ) BWZ I J 

/ CHECK PROTECT j 

) FLOAT DOLLAR SIGN f 

j FLOAT CURRENCY SIGN I [ LEAVING integer PLACES] 

f ZERO SUPPRESS * 



ALPHABETIC 
NUMERIC 



[ CLASS IS] , 

ALPHANUMERIC ( 

AN ) 

[ COLUMN NUMBER IS integer] 
[ GROUP INDICATE] 
( JUSTIFIED ) 



\ JUST / 



RIGHT 



/ integer-1 
LINE NUMBER IS < PLUS inteqer-2 
I NEXT PAGE 

f PIC 1 1 

I PICTURE / IScharacter - strin 9 J 



POINT LOCATION IS •[ L££I J integer PLACES 
' RIGHT ' 



( identifier ) 
RESET ON ' l 



fier } -1 

L i'J 



I FINA 



f SIGNED \ "1 



I SIGN IS data-name / 

f CHARACTERS ) 1 
S ZE S integer < > 
y I DIGITS i J 



[SELECTED ] identifier 
cnijRPF.c J LINE-COUNTER 
S0URCE ' S < PAGE-COUNTER 
. TODAYS-DATE 

SUM identifier- 1 [identifier-2] . . . [ UPON data-name] 
VALUE IS literal 

[[USAGE IS] DISPLAY ]. 

TYPE clause allowed if level 01 

NEXT GROUP clause allowed if level 01 



USAGE SPECIFICATIONS 



Element 


Upper Limit 


data-name 


30 characters, 
5 levels of qualifications 


elementary item/literal 


255 characters/digits 


PERFORM nesting 


15 levels in separate overlays, 
no limit in main overlay 


level numbers 


01-49,66,77,88, FD, RD,SD 


OCCURS.. .DEPENDING ON 


1 per record description 


library copies 


5 levels of nesting 


ACCEPT items 


80 characters; 

40 characters from console 


PICTURE clause 


30 symbols 


arithmetic operand 


18 digits 


GO TO statement 


100 procedure names 


ALTER statement 


100 procedure names 


DISPLAY items 


no limit 


ENTER parameters 


no limit 


Total files, I/O devices, 
and reports 


53 


Total procedure names 


depends on field length 


Total external references 


depends on field length 



VALID MOVE OPERATIONS 



\. Rec. 
\ Field 
SourceV 
Field \ 


Elem. 
Binary 


Elem. 
Alpha 


Elem. 

BCD 

Num. 


Elem. 
AN 


Elem. 

Edit 

Num. 


Elem. 

Edit 

AN 


Group 
AN 


Elem. 
Binary 


Num. 
Bin. 


X 


Conv. 
Num. 


Conv.t 
AN 


Conv. 
Edit 


Conv.t 

AN- 

Edit 


TD 

AN 


Elem. 
Alpha 


X 


AN 


TD 

AN 


AN 


X 


AN- 
Edit 


AN 


Elem. 
BCD Num. 


Conv. 
Bin. 


TD 

AN 


Num. 


ANt 


Edit 


AN- 
Edit 


ANt 


Elem. 
AN 


X 


TD 

AN 


Num. 


AN 


Edit 


AN- 
Edit 


AN 


Elem. 
Edit Num. 


X 


TD 

AN 


X 


AN 


X 


AN- 
Edit 


AN 


Elem. 
Edit AN 


X 


TD 

AN 


X 


AN 


X 


AN- 
Edit 


AN 


Group AN 


TD 

AN 


TD 

AN 


TD 

AN 


AN 


X 


AN- 
Edit 


AN 


Group 
Binary & 
Mixed 


TD 

AN 


TD 

AN 


TD 

AN 


TD 

AN 


X 


TD 

AN- 
Edit 


TD 

AN 


Zero 


Num. 
Bin. 


X 


Num. 


AN 


Edit 


AN- 
Edit 


AN 


Literal & 
Fig. Cons. 
AN 


X 


TD 

AN 


X 


AN 


X 


AN- 
Edit 


AN 


Literal 
Num. 


Conv. 
Bin. 


X 


Num. 


ANt 


Edit 


AN- 
Edit 


AN 



t Valid only wherr-source is integer; others TD. 

Any move to a binary or mixed group is treated as an alphanumeric 
move; a precautionary diagnostic is issued. 

A move to a figurative constant or literal is illegal. 



X 

AN 

AN-Edit 

Conv. 

Edit 

Num. 



Ill 



Alphanumeric 
Alphanumeric edited 
Conversion prior to move 
Numeric edited 
Numeric 
Num. Bin. Numeric binary 
TD Trivial diagnostic issued 
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PROCEDURE DIVISION 

PROCEDURE DIVISION. [ USING parameter-list] . 
DECLARATIVES. 

{ section-name SECTION, declarative-sentence. 

{ paragraph name, {sentence.} ...} ... } ... 
END DECLARATIVES. 

{ section-name SECTION [priority-number] . 

{ paragraph-name. { sentence. } ... } ... } ... 



ACCEPT identifier 



™'DAY 



TIME 
DATE 



mnemonic-name 



A ^ / identifier- 1 \ [" / identifier-2 \ 1 
^Mliteral-1 / L 1 literal-2 /J - 

identifier-3 [ ROUNDED ! 

[ON SIZE ERROR imperative-statement] 

ADD i identifier " 1 X r / identifier-2 ) 1 

^^\literal-1 J Lt literal-2 J J "" — 

identifier-3 [ ROUNDED ] [identifier-4 [ ROUNDED ] 1 ... 

[ON SIZE ERROR imperative-statement] 

( identifier- 1 ) ( identifier-2 1 |~ ( identifier-3 ) 1 

^Mliteral-1 J I literal-2 J L\ literal-3 J J '" 

GIVING identifier-4 [ ROUNDED ] [identifier-5 [ ROUNDED ] ] 

[ON SIZE ERROR imperative-statement] 

^ "ESPONDiNG } ide " tifier - 1 

10 identifier-2 [ ROUNDED ] [identifier-3 [ ROUNDED ] ] ... 
[ON SIZE ERROR imperative-statement] 
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ALTER procedure-name-1 TO [ PROCEED TO l procedure-name-2 

[procedure-name-3 TO [ PROCEED TO ] procedure-name-4] ... 
CALL {routine-name} [ USING identif ier-1 [ identif ier-2 ] ...] . 

™«— -i urn] [" , ™{fsr u,D }] 
[— um] ["■™issir MD }J]" 

COMPUTE identifier- 1 [ROUNDED] [identif ier-2 [ ROUNDED] ] ... 



( FROM \ ( literal \ 
< = > < arithmetic-expression > 
( EQUALS ) I identifier-3 ) 


[ON SIZE ERROR imperative-statementl 


( COPY 1 ... 


-name [FROM LI 




) INCLUDE ! l,b,d,V 






( literal-1 ) 

REPLACING < word-1 > 

I identifier- 1 ) 


( literal-2 ] 

BY < word -2 > 

( identifier-2 ) 






" (" literal-3 \ 

< word-3 > 

_ ( identifier-3 ) 


( literal-4 \ ~ 
BY < word -4 > 
(. identif ier-4 j _ 



DELETE RECORD FROM file-name 

[ INVALID KEY imperative-statement] 

aoi^iirsr 1 } [{lit"}] 

[ UPON mnemonic-name] 



DIVIDE i | dent ' fier U INTO identifier-2 [ ROUNDED ] 
I literal j 



[identifier-3 [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 



nixtinr . / identifier-! ) /BY \ / identifier-2 \ 
^^M.iteral-1 M fSlO / i literal-2 / 

GIVING identifier-3 [ROUNDED] [identifier-4 [ ROUNDED !! ... 

[ON SIZE ERROR imperative-statement] 

DIVIDE i identifier - 1 I / iY W identif ier-2 ) 
1 literal-! j ( INTO j 1 literal-2 j 

GIVING identifier-3 [ ROUNDED ] 

REMAINDER identifier-4 

[ON SIZE ERROR imperative-statement] 

ENTER [language-name] routine-name [ USING parameter-list] . 

ENTER COBOL. 

ENTER LINKAGE. 

( ENTER j r 

')CALL I l ianQuage-ria rne j routine-name [ USING parameter-list] . 

ENTRY routine-name [ USING parameter-list], 

EXAMINE identifier 

TALLYING {{I^ rst } 'TrIpIaCJNG BY literal-2] , 

REPLACING ^ LEADING > literal-3 BY literal-4 

([ UNTIL ] FIRST ) 



( EXIT PROGRAM. \ 

) RETURN. | 

GENERATE identifier 

GO TO [procedure-name] 

GO TO procedure-name- 1 [procedure^-name-2 ...] 
DEPENDING ON identifier 



« 



if conditional-expression [ THEN ] 



[ THEN ] 



OTHERWISE ) 



{ NEXT SENTENCE J 

statement-2 \ 

. NEXT SENTENCE J 



ELSE 

Conditional expressions include: 

i GREATER THAN 
GR 
> 
LESS THAN 

)< 
IS [NOT] < GREATER-EQUAL TO ) 
jGQ 
(identifier-1) / / LESS-EQUAL TO \ \ ridentifier-2] 

< literal-1 X / LQ \ >< literal-2 

lformula-1 ) \ I EQUAL [TO] I / lformula-2 

EQ 



IS UNEQUAL TO 

EQUALS 

EXCEEDS 



IS NQ 
IS NGR 
IS NLS 



/ identifier \ 
(formula / 



( POSITIVE 
IS [NOT] ^ NEGATIVE 

( zero 



identifier IS [NOJ] 
[NOT] 



' NUMERIC 



ALPHABETIC ) 
condition-name ) 



( switch-status-name j 

| report-name-1 [report-name-2] . 

i ALL 



(CORR 

1 CORRESPONDING 
literal-1 
identifier-1 



identifier-1 



TO 



identif ier-2 [identifier-3] ... 
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MULTIPLY i ldent ' fier 1 1 BY identifier-2 [ ROUNDEDl 
I literal J 

[identifier-3 [ROUNDED]] ... 

[ON SIZE ERROR imperative-statement] 

C identifier-1 ) Ry / identifier-2 ) 
I literal-1 J — I literal-2 J 



GIVING identifier-3 [ ROUNDED ] 

[identifier-4 [ ROUNDED ]] ... 

[ON SIZE ERROR imperative-statement] 

NOTE character-string. 

EXTEND file-name-1 [file-name-2] ... 

INPUT file-name-1 

file-name-2 



OPEN 



n REVERSED )1 

L I WITH NO REWIND ) I 

[f REVERSED )~|] 

L I WITH NO REWIND /J J 



OUTPUT file-name-1 [WITH NO REWIND 

[file-name-2 [WITH NO REWIND ]] ... 

{ INPUT-OUTPUT | fi|e _ name _ 1 [file _ name _ 2] .. 

PERFORM procedure-name-1 [ -j > procedure-name-2] 

( I HHOUGH ; 



PERFORM procedure-name-1 [ < > procedure-name-2] 



. THROUGH . 

( identifier \ T|MES 
I integer ) 

l -TU DM \ 

PERFORM procedure-name-1 [ < > procedure-name-2] 

{ I HRUUGH J 



UNTIL condition 



« 



PERFORM procedure-name-1 [ j ™^ UGH } procedure-name-2] 

( literal-1 ) 

VARYING i index " name - 1 1 FROM { index-name-2 \ BY 
I identifier- 1 J I ide ntifier-2 ) 



identifier-2 

{S -2 r3 | ^^ [^_ R {;-— 3 } 

FROM i index-name-4} BY { Identifitr-B } UNTlkcondition-2 

I identifier-5 J 

C literal-5 ) 

T AFTER i' ndex - name - 5 l FROM ^ index-name-6 V BY 
L I identifier-7 j ( jdentifier-8 ) 

(literal-6 ) UNTIL condition-3 ] 
I identifier-9 j ■ J J 

READ file-name RECORD [ INTO identifier] AT END 

imperative-statement 
READ file-name RECORD [ INTO identifier] 

[ MAJOR KEY SS data-name] INVALID KEY imperative-statement 
RELEASE record-name [ FROM identifier] 
RETURN file-name RECORD [ INTO identifier] AT END 

imperative-statement 
REWRITE record-name [ FROM identifier] 

[ INVALID KEY imperative-statement] 

[AT END imperative-statement-1 ] 

„ / imperative-statement-2\ 
WHEN cond.t.on-1 j NFXT SENTENCE j 

r ,. • o f imperative-statement-3\ 1 

L WHENcond.t.on-2 <| NEXT SENTENCE }J - 
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SEARCH ALL identifier [AT END imperative-statement-1 ] 

WHEN condition { imperative-statement-2 ) 
1 NEXT SENTENCE / 

SEEK file-name RECORD [WITH KEY CONVERSION ! 



SET 



/ index-name-1 [index-name-2] ... ] 
I identifier-1 [identifier-2] ... J 



index-name-3 
TO <j identifier-3 
^ literal 



SET index-name-1 [index-name-2] 

( UP BY \ ( identifier ) 

1 DOWN BY / I literal j 



~,s, n (literal ) 

SKIP • . . • RECORDS ON file-name 

( data-name ' 



SORTfi.e-name-10N | DESCENDING l 
( ASCENDING j 



KEY data-name-1 [data-name-2] 
i DESCENDING 



_ M ( DESCENDING ] lxr _ w , r 1 

° N ( ASCENDING / KEY data - n a™-3[data-name-4] ..J... ^ 



INPUT PROCEDURE IS section-name-1 



f( THRU | l 

H THROUGH f sert .on-name-2 j 

JSING file-name-2 

)UTPUT PROCEDURE IS section-nan 

[{m!lyGH} section - name ^] 



STOP 



GIVING file-name-3 



\ literal ) 
1 RUN J 
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SUBTRACT 



I identifier-1 \ 



f ( identifier-2) 1 
Llliteral-2 J J "" 



literal-1 
FROM identifier-3 

[ROUNDED] [identifier-4[ ROUNDED]] 
[ON SIZE ERROR imperative-statement] 
rDA «-r i identifier-1 



literal-1 



I" f identifier-2) 1 
L I literal-2 J J 



i identifier-3 \ 
{ literal-3 j 



FROM 

GIVING identifier-4 [ ROUNDED ] 

[identifier-5 [ ROUNDED ] l ... 

[ON SIZE ERROR imperative-statement] 

§"£IBACI { g^ ESP0NDING } identifier-! FROM 
identifier-2 [ ROUNDED ] [identifier-3 [ ROUNDED ] ] 
[ON SIZE ERROR imperative-statement] . 



TERMINATE 



report-name-1 [report-name-2] ... I 

Iall i 

USE AFTER STANDARD ERROR PROCEDURE ON 

! file-name- 1 [file-name-2] ... \ 
INPUT / 

OUTPUT > 

INPUT-OUTPUT \ 

l-O / 



( BEFORE ) 
I AFTER j 



STANDARD 



[f BEGINNING )] 
I 1 ENDING j J 



REEL 
FILE 
UNIT )J 

! file-name- 1 [file-name-2] 
INPUT 
OUTPUT 
I^uTTqutput 
l-O 
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USE BEFORE REPORTING identifier- 1 [identifier-2] ... 

( ALL ) 



USE FOR HASHING ON 



USjE FOR DUPLICATE KEY ON 



1 file-name- 1 [file-name-2] ... J 

ALL 



{ file-name- 1 [file-name-2] ... J 



USE FOR KEY CONVERSION ON 



( ALL 



I file-name- 1 [file-name-2] ... j 
WRITE record-name [FROM identifier- 1] 



f BEFORE ) 
I AFTER j 



identifier-2 LINES 
ADVANCING <{ integer LINES 

mnemonic-name 



AT f END-OF-PAGE ) . + . 

AT < > imperative-statement 

IEOP J 



WRITE record-name [ FROM identifier] 

[ INVALID KEY imperative-statement] 
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COBOL CONTROL CARD 

Parameters are used to select compilation options. All are optional and 
may be specified in any order. Each is separated from the other by a 
comma. The list may be enclosed in parentheses (as shown) or it may be 
separated from the word COBOL by a comma and terminated by a 
period. 



COBOL. 

COBOL (parameter-list) 



[comments] 



A (Blank Conversion) 
B (Binary Output) 



absent 

B 

B = LGO 

B = fn 

B = 



treats leading blanks as zeros 

relocatable binary file on file 
LGO 

binary output on file fn 
suppress binary output 



BUF (Buffer Size) 



BUF 



selects buffer size by method 
of version 3.0 COBOL 



C (Copy Default) 



uses version 3.0 COPY mode; 
to copy from library, FROM 
LIBRARY must be specified 



D (Execution Abort) D 



prevents execution of program 
if E diagnostic occurs 



E (EDITLIB) 



E = f n 



using EDITLIB, add object 
code to system library 



F (Computational 
Modification) 



interprets COMPUTATIONAL 
items as COMPUTATIONAL-1 



H (BCOMMON) 



BCOMMOM replaces blank 
common as buffer area 



I (Source Input) 



'absent 
I 
I = INPUT 

I =fn 



INPUT assumed 



source input on file fn 



29 



L (List) 



absent 
L 


LX 


LR 


LC 


LO 


LM 


L = fn 


L = 



N (Non-ANSI 


N 


Diagnostic) 




(Compiler Options) 


= X 




= R 




= 




= C 




= M 


OB (Overlay Binary) 


OB 




OB = LG02 




OB = fn 


OL (Optimizer Level) 


OL = 




0L= 1 




0L = 2 




0L = 3 ] 




absent } 




OL ) 



normal listing on OUTPUT 

extended diagnostics 
cross reference pointers 
copy from library 
object code in octal 
data map 
output on file fn 
suppress list output 

diagnoses any non-ANSI 
feature 

extended diagnostics 
cross reference pointers 
object code in octal 
copy from library 
data map 

binary output on LG02 



no optimizations 

program flow optimization 

machine instruction optimi- 
zation 

all optimizations 



30 



P (ANSI execution) P 

S (Source Library) absent 

S 
S = COLIB 

S = fn 

SUB (Subcompile) SUB 

T (Tape Sort) T 

U (ASCII Collating) U 

W (Initialize Overlays) W 

Z (3.0 Compatibility) Z 



allows non-ANSI reserved 
words; selects N parameter 

source library from file 
COLIB 

from file fn 

suppresses all data division 
binary output except from 
working and constant storage 

sort requests tape sort 

use ASCI I collating sequence 

uses version 3.0 method of 
treating independent seg- 
ments: they are available in 
last used state 

provides compatibility with 
version 3.0 COBOL: selects 
oarameters BUF, C, anci W 
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COBOL CODING FORMAT 



Column 


Element 


1 -6 


Sequence number 


7 


Hyphen, slash, or asterisk 


8 


Division name 

Section name 

Paragraph name 

File description 

Record description level number 


12 


Record description data name 

First sentence of a paragraph 

File name 

Continuation of a data description or a sentence 


73-80 


Identification (optional) 



Sequence number 
Hyphen 

Slash or asterisk 

Division name 
Section name 

Paragraph name 

File Description 

Record Description 

First Sentence 



Optional, checked by the processor if used 

Indicates continuation of a word or literal from 
the preceding line 

Remainder of line is treated as comment and 
skips to new page 

Terminated by period, remainder of line is blank 

Followed by optional priority number, termi- ^fl 
nated by period, remainder is blank 

Terminated by period, and followed by at least 
one blank before text begins 

FD or SD followed by file name and at least one jam 
blank 

Level number followed by at least one blank and 
data name 

Begins in or after column 1 2. Spaces may be used 
freely to avoid splitting a word or literal. If a jm 
word or literal is split, a hyphen must appear in V 
column 7 of the next line. 



COBOL SOURCE DECKS 
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COBOL COMPILATION 




34 



EXECUTION 
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EXECUTION WITH SEGMENTATION 



empty record 
end of loader 
information 




COBOL RESERVED WORD LIST 



* Indicates word not implemented. 



ABOUT 


CHARACTERS 


ACCEPT 


CHECK 


ACCESS 


CLASS 


ACTUAL 


CLOCK-UNITS 


ADD 


CLOSE 


ADDRESS 


COBOL 


ADVANCING 


CODE 


AFTER 


COLUMN 


ALL 


COMMA 


ALPHABETIC 


COMMON-STORAGE 


ALPHANUMERIC 


COMP 


ALTER 


COMP-1 


ALTERNATE 


COMP-2 


AN 


COMPASS 


AND 


COMPUTATIONAL 


^ANSIB 


COMPUTATIONAL-1 


X "APPLY 


COMPUTATIONAL-2 


ARE 


COMPUTE 


AREA 


CONFIGURATION 


AREAS 


CONSOLE 


ASCENDING 


CONSTANT 


ASSIGN 


CONTAINS 


AT 


CONTROL 


AUTHOR 


CONTROLS 




CONVERSION 




COPY 


*BCD 


CORR 


BEFORE 


CORRESPONDING 


BEGINNING 


*COUNT 


BEGINNING-FILE-LABEL 


CREATE 


BEGINNING-TAPE-LABEL 


CURRENCY 


BINARY 




*BITS 




BLANK 


DATA 


BLOCK 


DATA-PADDING 


BLOCKS 


DATE 


BWZ 


DATE-COMPILED 


BY 


DATE-WRITTEN 




DAY 




DE 


CALL 


DECIMAL 


CANCEL 


DECIMAL-POINT 


*CD 


DECLARATIVES 


CF 


DELETE 


CH 


*DELiMITER 


CHARACTER 


^DELIMITED 



DENSITY 


FD 


DEPENDING 


FILE 


^DEPTH 


FILE-CONTROL 


DESCENDING 


FILE-LABEL 


^DESTINATION 


FILE-LIMIT 


DETAIL 


FILE-LIMITS 


DIGIT 


FILLER 


DIGITS 


FINAL 


DIRECT 


*FIND 


^DISABLE 


FIRST 


DISPLAY 


FLOAT 


DIVIDE 


FOOTING 


DIVIDED 


FOR 


DIVISION 


*FORMAT 


DOLLAR 


♦FORTRAN 


DOWN 


FORTRAN-R 


DUPLICATE 


FORTRAN-X 




FROM 


EBCDIC 




EDITION-NUMBER 

ELSE 

EMI 

ENABLE 

END 

END--OF-PAGE 

ENDING 

ENDING-FILE-LABEL 


GENERATE 

GIVING 

GO 

GQ 

GR 

GREATER 

GREATER-EQUAL 

GROUP 


ENDING-TAPE-LABEL 


ENDING-TAPE-LABEL-IDENTIFIER 




ENTER 




ENTRY 


*HASHED 


ENVIRONMENT 


HASHED-VALUE 


EOP 


HASHING 


EQ 


HEADING 


EQUAL 


HIGH 


EQUALS 


HIGH-VALUE 


ERROR 


HIGH-VALUES 


ERROR-CODE 


*HOLD 


ESI 


HYPER 


ETI 




EVERY 




EXAMINE 


ID 


EXCEEDS 


IDENTIFICATION 


EXIT 


IF 


EXPONENTIATED 


IN 


EXTEND 


INCLUDE 


EXTERNAL 


INDEX 



INDEX-BLOCK 

INDEX-LEVEL 

INDEX-LEVELS 

INDEX-PADDING 

INDEXED 

INDICATE 

INITIATE 

INPUT 

INPUT-OUTPUT 

INSTALLATION 

INTO 

INVALID 

1-0 

l-O-CONTROL 

IS 



* LOWER-BOUNDS 
LQ 
LS 



MAJOR 
MEMORY 
*MESSAGE 
MINUS 
MODE 
MODULES 
MOVE 
MULTIPLE 
MULTIPLIED 
MULTIPLY 



JUST 
JUSTIFIED 



KEY 
KEYS 



LABEL 
LAST 
LEADING 
LEAVING 
LEFT 
LESS 

LESS-EQUAL 
LIBRARY 
LIMIT 
LIMITS 
LINAGE 

LINAGE-COUNTER 
LINE 

LINE-COUNTER 
LINES 
LINKAGE 
LOCATION 
LOCK 
LOW 

LOW-VALUE 

LOW-VALUES 

*LOWER-BOUND 



NEGATIVE 

NEXT 

NGR 

NLS 

NO 

NOT 

NOTE 

NQ 

NUMBER 

NUMERIC 



OBJECT-COMPUTER 
OCCURS 
OF 
OFF 
OH 

OMITTED 
ON 
OPEN 
OPTIONAL 
OR 

ORGANIZATION 
OTHERWISE 
OUTPUT 
OV 

OVERFLOW 
*OWNER 
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PAGE 


REMAINDER 


PAGE-COUNTER 


REMARKS 


PERCENT 


RENAMES 


PERFORM 


RENAMING 


PF 


REPLACING 


PH 


REPORT 


PIC 


REPORTING 


PICTURE 


REPORTS 


PLACES 


RERUN 


PLUS 


RESERVE 


POINT 


RESET 


POSITION 


RETENTION 


POSITIVE 


RETENTION-CYCLE 


*PREPARED 


RETURN 


*PR!NT-SWITCH 


REVERSED 


PRIORITY 


REWIND 


PROCEDURE 


REWRITE 


PROCEDURES 


RF 


PROCEED 


RH 


^PROCESS 


RIGHT 


PROCESSING 


ROUNDED 


PROGRAM 


RUN 


PROGRAM-ID 




PROTECT 






*SA 


*QUEUE 


SAME 
SD 


QUOTE 
QUOTES 


SEARCH 
SECONDARY-STORAGE 




SECTION 




SECURITY 


RANDOM 


SEEK 


RANGE 


SEGMENT-LIMIT 


RD 


SELECT 


READ 


SELECTED 


*RECEIVE 


*SEND 


RECORD 


SENTENCE 


RECORD-BLOCK 


SEQUENCED 


RECORD-MARK 


SEQUENTIAL 


RECORDING 


SET 


RECORDS 


SIGN 


REDEFINES 


SIGNED 


REEL 


SIZE 


REEL-NUMBER 


SKIP 


PREFERENCES 


SORT 


RELATIVE 


SOURCE 


RELEASE 


SOURCE-COMPUTER 
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SPACE 

SPACES 

SPECIAL-NAMES 

STANDARD 

STATUS 

STOP 
*STRING 
*SUB-QUEUE-1 
*SUB-QUEUE-2 
*SUB-QUEUE-3 

SUBTRACT 

SUM 
^SUPERVISOR 

SUPPRESS 

SWITCH 

SYMBOLIC 

SYNC 

SYNCHRONIZED 



*TABLE 
TALLY 
TALLYING 
TAPE 

TERMINAL 

TERMINATE 
*TEST 
*TEXT 

THAN 

THEN 

THROUGH 

THRU 

TIME 

TIMES 



TO 

TODAYS-DATE 
TYPE 



UNEQUAL 
UNIT 

*UNSTRING 
UNTIL 
UP 
UPON 

*UPPER-BOUND 
*UPPER-BOUNDS 

USAGE 

USE 

USING 



VALUE 

VALUES 

VARYING 

^VOLUME 



WHEN 
WITH 
*WORDS 
WORKING-STORAGE 
WRITE 



ZERO 

ZEROES 

ZEROS 



64-CHARACTER SET COLLATING SEQUENCE 



Collating 


COBOL 


Display 


Hollerith Punch 


Sequence 


Character 


Code 


(026) 


(029) 


00 


blank 


55 


no punch 


no punch 


01 


<* 


74 


8-5 


12-8-4 


02 


% 


63 


8-6 


0-8-4 


03 


[* 


61 


8-7 


8-5 


04 


^* 


65 


0-8-5 


0-8-5 


05 


= * 


60 


0-8-6 


8-3 


06 


A* 


67 


0-8-7 


12 


07 


t* 


70 


11-8-5 


8-4 


08 


ir* 


71 


11-8-6 


0-8-7 


09 


> 


73 


11-8-7 


0-8-6 


10 


>* 


75 


12-8-5 


0-8-2 


11 


^* 


76 


12-8-6 


11-8-7 


12 




57 


12-8-3 


12-8-3 


13 


) 


52 


12-8-4 


11-8-5 


14 


; 


77 


12-8-7 


11-8-6 


15 


+ 


45 


12 


12-8-6 


16 


$ 


53 


11-8-3 


11-8-3 


17 


* 


47 


11-8-4 


11-8-4 


18 


- 


46 


11 


11 


19 


/ 


50 


0-1 


0-1 


20 


, 


56 


0-8-3 


0-8-3 


21 


( 


51 


0-8-4 


12-8-5 


22 


= 


54 


8-3 


8-6 


23 


*t 


64 


8-4 


8-7 


24 


< 


72 


12-0 


12-8-2 


25 


A 


01 


12-1 


12-1 


26 


B 


02 


12-2 


12-2 


27 


C 


03 


12-3 


12-3 


28 


D 


04 


12-4 


12-4 


29 


E 


05 


12-5 


12-5 


30 


F 


06 


12-6 


12-6 


31 


G 


07 


12-7 


12-7 



*Not in COBOL character set; may be present in data 
tCOBOL quote character (") is output on printer as # 
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64-CHARACTER SET COLLATING SEQUENCE (continued) 



Collating 
Sequence 


COBOL 
Character 


Display 
Code 


Hollerith Punch 
(026) (029) 


32 


H 


10 


12-8 


12-8 


33 


I 


11 


12-9 


12-9 


34 


V 


66 


11-0 


11-8-2 


35 


J 


12 


11-1 


11-1 


36 


K 


13 


11-2 


11-2 


37 


L 


14 


11-3 


11-3 


38 


M 


15 


11-4 


11-4 


39 


N 


16 


11-5 


11-5 


40 





17 


11-6 


11-6 


41 


P 


20 


11-7 


11-7 


42 


Q 


21 


11-8 


11-8 


43 


R 


22 


11-9 


11-9 


44 


]tt 


62 


0-8-2 


12-8-7 


45 


S 


23 


0-2 


0-2 


46 


T 


24 


0-3 


0-3 


47 


U 


25 


0-4 


0-4 


48 


V 


26 


0-5 


0-5 


49 


w 


27 


0-6 


0-6 


50 


X 


30 


0-7 


0-7 


51 


Y 


31 


0-8 


0-8 


52 


z 


32 


0-9 


0-9 


53 


:* 


00 


8-2 


8-2 


54 





33 








55 


1 


34 


1 


1 


56 


2 


35 


2 


2 


57 


3 


36 


3 


3 


58 


4 


37 


4 


4 


59 


5 


40 


5 


5 


60 


6 


41 


6 


6 


61 


7 


42 


7 


7 


62 


8 


43 


8 


8 


63 


9 


44 


9 


9 



*Not in COBOL character set 
ttCOBOL record mark 



ASCII COLLATING SEQUENCE 



Collating 
Sequence 


Character 


Display 
Code 


Hollerith Punch 
(026) (029) 


00 


blank 


55 


no punch 


no puncl 


01 


!* 


62 


0-8-2 


12-8-7 


02 


" 


64 


8-4 


8-7 


03 


# 


60 


0-8-6 


8-3 


04 


$ 


53 


11-8-3 


11-8-3 


05 


% 


63 


8-6 


0-8-4 


06 


& 


67 


0-8-7 


12 


07 


' 


61 


8-7 


8-5 


08 


( 


51 


0-8-4 


12-8-5 


09 


) 


52 


12-8-4 


11-8-5 


10 


* 


47 


11-8-4 


11-8-4 


11 


+ 


45 


12 


12-8-6 


12 


, 


56 


0-8-3 


0-8-3 


13 


- 


46 


11 


11 


14 




57 


12-8-3 


12-8-3 


15 


/ 


50 


0-1 


0-1 


16 





33 








17 


1 


34 


1 


1 


18 


2 


35 


2 


2 


19 


3 


36 


3 


3 


20 


4 


37 


4 


4 


21 


5 


40 


5 


5 


22 


6 


41 


6 


6 


23 


7 


42 


7 


7 


24 


8 


43 


8 


8 


25 


9 


44 


9 


9 


26 




00 


8-2 


8-2 


27 


; 


77 


12-8-7 


11-8-6 


28 


< 


74 


8-5 


12-8-4 


29 


= 


54 


8-3 


8-6 


30 


> 


73 


11-8-7 


0-8-6 


31 


? 


71 


11-8-6 


0-8-7 
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ASCII COLLATING SEQUENCE (continued) 



Collating 
Sequence 


Character 


Display 
Code 


i-ioiientr 
(026) 


i njncn 
(029) 


32 


@ 


70 


11-8-5 


8-4 


33 


A 


01 


12-1 


12-1 


34 


B 


02 


12-2 


12-2 


35 


C 


03 


12-3 


12-3 


36 


D 


04 


12-4 


12-4 


37 


E 


05 


12-5 


12-5 


38 


F 


06 


12-6 


12-6 


39 


G 


07 


12-7 


12-7 


40 


H 


10 


12-8 


12-8 


41 


I 


11 


12-9 


12-9 


42 


J 


12 


11-1 


11-1 


43 


K 


13 


11-2 


11-2 


44 


L 


14 


11-3 


11-3 


45 


M 


15 


11-4 


11-4 


46 


N 


16 


11-5 


11-5 


47 





17 


11-6 


11-6 


48 


P 


20 


11-7 


11-7 


49 


Q 


21 


11-8 


11-8 


50 


R 


22 


11-9 


11-9 


51 


S 


23 


0-2 


0-2 


52 


T 


24 


0-3 


0-3 


53 


U 


25 


0-4 


0-4 


54 


V 


26 


0-5 


0-5 


55 


W 


27 


0-6 


0-6 


56 


X 


30 


0-7 


0-7 


57 


Y 


31 


0-8 


0-8 


58 


Z 


32 


0-9 


0-9 


59 


[ 


72 


12-0 or 12-8-2 


60 


/ 


75 


12-8-5 


0-8-2 


61 


] 


66 


11-0 or 11-8-2 


62 


^ 


76 


12-8-6 


11-8-7 


63 


— 


65 


0-8-5 


0-8-5 



45 



63-CHARACTER SET COLLATING SEQUENCE 



Collating 
Sequence 


COBOL 
Character 


Display 
Code 


00 


blank 


55 


01 


<* 


74 


02 


[* 


61 


03 


^* 


65 


04 


= * 


60 


05 


A* 


67 


06 


t* 


70 


07 


I* 


71 


08 


> 


73 


09 


>* 


75 


10 


1* 


76 


11 




57 


12 


) 


52 


13 




77 


14 


+ 


45 


15 


$ 


53 


16 


* 


47 


17 


- 


46 


18 


/ 


50 


19 




56 


20 


( 


51 


21 


= 


54 


22 


=£t 


64 


23 


< 


72 


24 


A 


01 


25 


B 


02 


26 


C 


03 


27 


D 


04 


28 


E 


05 


29 


F 


06 


30 


G 


07 


31 


H 


10 



*Not in COBOL character 
tCOBOL quote character 



Hollerith Punch 

(026) (029) 

no punch no punch 

8-5 12-8-4 

8-7 0-8-4 

0-8-5 0-8-5 

0-8-6 8-3 

0-8-7 12 

11-8-5 8-4 

11-8-6 0-8-7 

11-8-7 0-8-6 

12-8-5 0-8-2 

12-8-6 11-8-7 

12-8-3 12-8-3 

12-8-4 11-8-5 

12-8-7 11-8-6 

12 12-8-6 

11-8-3 11-8-3 

11-8-4 11-8-4 

11 11 

0-1 0-1 

0-8-3 0-8-3 

0-8-4 12-8-5 

8-3 8-6 

8-4 8-7 

12-0 12-8-2 

12-1 12-1 

12-2 12-2 

12-3 12-3 

12-4 12-4 

12-5 12-5 

12-6 12-6 

12-7 12-7 

12-8 12-8 

set; may be present in data 
(") is output on printer as ^ 



63-CHARACTER SET COLLATING SEQUENCE (continued) 



Collating 
Sequence 


COBOL 
Character 


Display 
Code 


Hollerith Punch 
(026) (029) 


32 


I 


11 


12-9 


12-9 


33 


V 


66 


11-0 


11-8-2 


34 


J 


12 


11-1 


11-1 


35 


K 


13 


11-2 


11-2 


36 


L 


14 


11-3 


11-3 


37 


M 


15 


11-4 


11-4 


38 


N 


16 


11-5 


11-5 


39 





17 


11-6 


11-6 


40 


P 


20 


11-7 


11-7 


41 


Q 


50 


11-8 


11-8 


42 


R 


22 


11-9 


11-9 


43 


]tt 


62 


0-8-2 


12-8-7 


44 


S 


23 


0-2 


0-2 


45 


T 


24 


0-3 


0-3 


46 


U 


25 


0-4 


0-4 


47 


V 


26 


0-5 


0-5 


48 


w 


27 


0-6 


0-6 


49 


X 


30 


0-7 


0-7 


50 


Y 


31 


0-8 


0-8 


51 


z 


32 


0-9 


0-9 


52 


:* 


63 


8-2 


8-2 


53 





33 








54 


1 


34 


1 


1 


55 


2 


35 


2 


2 


56 


3 


36 


3 


3 


57 


4 


37 


4 


4 


58 


5 


40 


5 


5 


59 


6 


41 


6 


6 


60 


7 


42 


7 


7 


61 


8 


43 


8 


8 


62 


9 


4 


9 


9 



*Not in COBOL character set 
ttCOBOL record mark 



NOTES 



48 



CONTROL DATA 



CORPORATE HEADQUARTERS, 8100 34th AVE. SO. 
MINNEAPOLIS, miUU. 55440 

SALES OFFICES AND SERVICE CENTERS 
IN MAJOR CITIES THROUGHOUT THE WORLD 



i 



Pub. No. 60328400 



Litho in U.S.A. 



